Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
| Comment: | Remove TclCommandWordLimitError() utility function: it is not used any more |
|---|---|
| Downloads: | Tarball | ZIP archive |
| Timelines: | family | ancestors | descendants | both | tip-626 |
| Files: | files | file ages | folders |
| SHA3-256: |
124360b3fda00f0faed6ce1376ca284e |
| User & Date: | jan.nijtmans 2025-03-21 13:25:52.062 |
Context
|
2025-03-24
| ||
| 10:51 | Remove 2 "> INT_MAX" checks, which are no longer necessary check-in: 1df7224b09 user: jan.nijtmans tags: tip-626 | |
|
2025-03-21
| ||
| 13:25 | Remove TclCommandWordLimitError() utility function: it is not used any more check-in: 124360b3fd user: jan.nijtmans tags: tip-626 | |
|
2025-03-18
| ||
| 23:15 | Rebase to 9.1 check-in: 9a2905dcb3 user: jan.nijtmans tags: tip-626 | |
Changes
Changes to generic/tclInt.h.
| ︙ | ︙ | |||
4092 4093 4094 4095 4096 4097 4098 | * some of the command compilers and by [lsort] and [lsearch]. */ MODULE_SCOPE int TclIndexEncode(Tcl_Interp *interp, Tcl_Obj *objPtr, int before, int after, int *indexPtr); MODULE_SCOPE Tcl_Size TclIndexDecode(int encoded, Tcl_Size endValue); | < < < < < < | 4092 4093 4094 4095 4096 4097 4098 4099 4100 4101 4102 4103 4104 4105 | * some of the command compilers and by [lsort] and [lsearch]. */ MODULE_SCOPE int TclIndexEncode(Tcl_Interp *interp, Tcl_Obj *objPtr, int before, int after, int *indexPtr); MODULE_SCOPE Tcl_Size TclIndexDecode(int encoded, Tcl_Size endValue); /* Constants used in index value encoding routines. */ #define TCL_INDEX_END ((Tcl_Size)-2) #define TCL_INDEX_START ((Tcl_Size)0) /* *---------------------------------------------------------------------- * |
| ︙ | ︙ |
Changes to generic/tclStringObj.c.
| ︙ | ︙ | |||
799 800 801 802 803 804 805 |
Tcl_Obj *
TclGetRange(
Tcl_Obj *objPtr, /* The Tcl object to find the range of. */
Tcl_Size first, /* First index of the range. */
Tcl_Size last) /* Last index of the range. */
{
| | | 799 800 801 802 803 804 805 806 807 808 809 810 811 812 813 |
Tcl_Obj *
TclGetRange(
Tcl_Obj *objPtr, /* The Tcl object to find the range of. */
Tcl_Size first, /* First index of the range. */
Tcl_Size last) /* Last index of the range. */
{
Tcl_Obj *newObjPtr; /* The Tcl object to return that is the new
* range. */
Tcl_Size length = 0;
if (first < 0) {
first = TCL_INDEX_START;
}
|
| ︙ | ︙ |
Changes to generic/tclUtil.c.
| ︙ | ︙ | |||
3963 3964 3965 3966 3967 3968 3969 |
}
endValue += encoded - TCL_INDEX_END;
if (endValue >= 0) {
return endValue;
}
return TCL_INDEX_NONE;
}
| < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < | 3963 3964 3965 3966 3967 3968 3969 3970 3971 3972 3973 3974 3975 3976 |
}
endValue += encoded - TCL_INDEX_END;
if (endValue >= 0) {
return endValue;
}
return TCL_INDEX_NONE;
}
/*
*----------------------------------------------------------------------
*
* ClearHash --
*
* Remove all the entries in the hash table *tablePtr.
|
| ︙ | ︙ |